File:of Disk: Disks/Working/Build-11-03-07
(Source file text)
2405 2220 2211 2305 4010 0123 4002 0505 1640 0405 2324 2217 3105 0456 4040 2410 0540 4006 0504 0522 0124 1117 1640 2711 1414 4002 0540 0317 1621 2505 2205 0456 4751 LDX 0432,0 #4020, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #4011+2 FLDA TKLING EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0433,0 #4011, JA .+0036 4050 6130 5447 2410 0522 0540 0122 0540 2324 1114 1440 4754 1163 5447 4013 1411 1607 1716 4002 0124 2414 0540 4003 2225 1123 0522 2356 4751 LDX 0434,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #4012+2 EXTERN #RENDO TRAP3 #RENDO LDX 0435,0 #4012, JA .+0023 4050 6130 5447 3117 2540 0705 2440 0116 1724 1005 2240 0310 0116 0305 5656 5656 4751 LDX 0436,0 JA #5 LDX 0437,0 #1560, FLDA ENERGY FSUB #LIT+0000 JGT #1610 LDX 0440,0 FLDA SHIELD FSUB #LIT+0003 JGE #1580 LDX 0441,0 #3920, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #3930+2 EXTERN #RENDO TRAP3 #RENDO LDX 0442,0 #3930, JA .+0104 4050 6130 5447 2410 0540 0516 2405 2220 2211 2305 4011 2340 0405 0104 4011 1640 2320 0103 0556 4040 1106 4031 1725 4023 2522 2611 2605 4040 0114 1440 1115 2005 1604 1116 0747 5457 5461 3054 4701 2424 0103 1323 4031 1725 4027 1114 1440 0205 4004 0515 1724 0504 4024 1740 2410 0540 4022 0116 1340 1706 4020 2211 2601 2405 5647 5100 LDX 0443,0 #3940, FLDA KLING3 FSUB #LIT+0000 JLE #4020 LDX 0444,0 JSR SHOOT LDX 0445,0 FLDA SHIELD FSUB #LIT+0000 JLT #4000 LDX 0446,0 JA #3940 LDX 0447,0 JA #5 LDX 0450,0 #1580, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #1590+2 FLDA ENERGY EXTERN #RSVO TRAP3 #RSVO FLDA SHIELD EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0451,0 #1590, JA .+0075 4050 6130 5447 3117 2540 1001 2605 4047 5411 6554 4740 2516 1124 2340 1706 4005 1605 2207 3147 5457 5440 6130 5447 2325 0707 0523 2440 3117 2540 0705 2440 2317 1505 4006 2217 1540 3117 2522 4023 1011 0514 0423 4027 1011 0310 4010 0126 0540 4754 4011 6554 4740 2516 1124 2340 1405 0624 5647 5100 LDX 0452,0 FLDA HELL JAC LDX 0453,0 #1610, FLDA #LIT+0003 FSTA I #G0034, LDX 0454,0 FLDA I ATX 7 FLDA DAMAGE-0003,7 FSUB #LIT+0000 JGE #1640 LDX 0455,0 FLDA I ATX 7 FLDA DAMAGE-0003,7 FADD #LIT+0116 FSTA DAMAGE-0003,7 LDX 0456,0 #1640, FLDA I FADD #LIT+0003 FSTA I FSUB #LIT+0030 JLE #G0034 LDX 0457,0 JSR RAN JA .+0006 JA IRA JA JONES FSUB #LIT+0157 JGT #1810 LDX 0460,0 JSR RAN JA .+0006 JA IRA JA JONES FMUL #LIT+0030 FADD #LIT+0003 FSTA #TMP+0000 JSR INT JA .+0004 JA #TMP+0000 FSTA ITEMP LDX 0461,0 JSR RAN JA .+0006 JA IRA JA JONES FSUB #LIT+0071 JGE #1750 LDX 0462,0 FLDA ITEMP ATX 7 JSR RAN JA .+0006 JA IRA JA JONES FMUL #LIT+0017 FADD #LIT+0003 FNEG FADD DAMAGE-0003,7 FSTA DAMAGE-0003,7 LDX 0463,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #1690+2 EXTERN #RENDO TRAP3 #RENDO LDX 0464,0 #1690, JA .+0024 4050 5754 6130 5447 0401 1501 0705 4003 1716 2422 1714 4022 0520 1722 2423 7247 5444 5100 LDX 0465,0 FLDA TEMP ATX 1 STARTD FLDA .+2,1 STARTF JAC JA #1692 JA #1694 JA #1696 JA #1700 JA #1702 JA #1704 JA #1706 JA #1708 LDX 0466,0 #1692, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #1693+2 EXTERN #RENDO TRAP3 #RENDO LDX 0467,0 #1693, JA .+0014 5047 5340 4027 0122 2040 0422 1126 0540 4754 4451 LDX 0470,0 JA #1720 LDX 0471,0 #1694, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #1695+2 EXTERN #RENDO TRAP3 #RENDO LDX 0472,0 #1695, JA .+0021 5047 5340 4023 1017 2224 4022 0116 0705 4023 0516 2317 2223 4047 5444 5100 LDX 0473,0 JA #1720 LDX 0474,0 #1696, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #1697+2 EXTERN #RENDO TRAP3 #RENDO LDX 0475,0 #1697, JA .+0020 5047 5340 4014 1716 0740 2201 1607 0540 2305 1623 1722 2340 4754 4451 LDX 0476,0 JA #1720 LDX 0477,0 #1700, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #1701+2 EXTERN #RENDO TRAP3 #RENDO LDX 0500,0 #1701, JA .+0016 5047 5340 4020 1001 2305 2240 0317 1624 2217 1440 4754 4451 LDX 0501,0 JA #1720 LDX 0502,0 #1702, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #1703+2 EXTERN #RENDO TRAP3 #RENDO LDX 0503,0 #1703, JA .+0015 5047 5340 4020 1017 2417 1640 2425 0205 2340 4754 4451 LDX 0504,0 JA #1720 LDX 0505,0 #1704, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #1705+2 EXTERN #RENDO TRAP3 #RENDO LDX 0506,0 #1705, JA .+0016 5047 5340 4004 0115 0107 0540 0317 1624 2217 1440 4754 4451 LDX 0507,0 JA #1720 LDX 0510,0 #1706, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #1707+2 EXTERN #RENDO TRAP3 #RENDO LDX 0511,0 #1707, JA .+0016 5047 5340 4023 1011 0514 0440 0317 1624 2217 1440 4754 4451 LDX 0512,0 JA #1720 LDX 0513,0 #1708, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #1709+2 EXTERN #RENDO TRAP3 #RENDO LDX 0514,0 #1709, JA .+0013 5047 5340 4003 1715 2025 2405 2240 4754 4451 LDX 0515,0 #1720, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #1722+2 EXTERN #RENDO TRAP3 #RENDO LDX 0516,0 #1722, JA .+0011 5047 5304 0115 0107 0504 4754 5751 LDX 0517,0 JA #1810 LDX 0520,0 #1750, FLDA ITEMP ATX 7 JSR RAN JA .+0006 JA IRA JA JONES FMUL #LIT+0017 FADD #LIT+0003 FADD DAMAGE-0003,7 FSTA DAMAGE-0003,7 LDX 0521,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #1690+2 EXTERN #RENDO TRAP3 #RENDO LDX 0522,0 FLDA TEMP ATX 1 STARTD FLDA .+2,1 STARTF JAC JA #1752 JA #1754 JA #1756 JA #1758 JA #1760 JA #1762 JA #1764 JA #1766 LDX 0523,0 #1752, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #1693+2 EXTERN #RENDO TRAP3 #RENDO LDX 0524,0 JA #1790 LDX 0525,0 #1754, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #1695+2 EXTERN #RENDO TRAP3 #RENDO LDX 0526,0 JA #1790 LDX 0527,0 #1756, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #1697+2 EXTERN #RENDO TRAP3 #RENDO LDX 0530,0 JA #1790 LDX 0531,0 #1758, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #1701+2 EXTERN #RENDO TRAP3 #RENDO LDX 0532,0 JA #1790 LDX 0533,0 #1760, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #1703+2 EXTERN #RENDO TRAP3 #RENDO LDX 0534,0 JA #1790 LDX 0535,0 #1762, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #1705+2 EXTERN #RENDO TRAP3 #RENDO LDX 0536,0 JA #1790 LDX 0537,0 #1764, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #1707+2 EXTERN #RENDO TRAP3 #RENDO LDX 0540,0 JA #1790 LDX 0541,0 #1766, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #1709+2 EXTERN #RENDO TRAP3 #RENDO LDX 0542,0 #1790, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #1792+2 EXTERN #RENDO TRAP3 #RENDO LDX 0543,0 #1792, JA .+0022 4050 4753 2324 0124 0540 1706 4022 0520 0111 2240 1115 2022 1726 0504 4754 5751 LDX 0544,0 #1810, FLDA WARP FADD #LIT+0151 FMUL #LIT+0030 FSTA #TMP+0000 JSR INT JA .+0004 JA #TMP+0000 FSTA MOVE LDX 0545,0 FLDA SECT1 FSTA ZONE1 LDX 0546,0 FLDA SECT2 FSTA ZONE2 LDX 0547,0 FLDA #LIT+0000 FSTA INSERT LDX 0550,0 FLDA #LIT+0011 FMUL #LIT+0030 FADD ZONE2 FMUL #LIT+0030 FADD ZONE1 ATX 7 FLDA INSERT FSTA ARRAY-0333,7 LDX 0551,0 FLDA SECT1 FSTA X LDX 0552,0 FLDA SECT2 FSTA Y LDX 0553,0 JSR INT JA .+0004 JA COURSE FSTA #TMP+0000 FLDA #LIT+0003 FMUL #LIT+0033 FADD #TMP+0000 ATX 7 FLDA COURSE FADD #LIT+0116 FSTA #TMP+0000 JSR INT JA .+0004 JA #TMP+0000 FSTA #TMP+0000 FLDA #LIT+0003 FMUL #LIT+0033 FADD #TMP+0000 ATX 6 JSR INT JA .+0004 JA COURSE FSTA #TMP+0000 FLDA #LIT+0003 FMUL #LIT+0033 FADD #TMP+0000 ATX 5 FLDA CHART-0036,6 FSUB CHART-0036,5 FSTA #TMP+0000 JSR INT JA .+0004 JA COURSE FNEG FADD COURSE FMUL #TMP+0000 FADD CHART-0036,7 FSTA X1 LDX 0554,0 JSR INT JA .+0004 JA COURSE FSTA #TMP+0000 FLDA #LIT+0006 FMUL #LIT+0033 FADD #TMP+0000 ATX 7 FLDA COURSE FADD #LIT+0116 FSTA #TMP+0000 JSR INT JA .+0004 JA #TMP+0000 FSTA #TMP+0000 FLDA #LIT+0006 FMUL #LIT+0033 FADD #TMP+0000 ATX 6 JSR INT JA .+0004 JA COURSE FSTA #TMP+0000 FLDA #LIT+0006 FMUL #LIT+0033 FADD #TMP+0000 ATX 5 FLDA CHART-0036,6 FSUB CHART-0036,5 FSTA #TMP+0000 JSR INT JA .+0004 JA COURSE FNEG FADD COURSE FMUL #TMP+0000 FADD CHART-0036,7 FSTA X2 LDX 0555,0 FLDA #LIT+0003 FSTA I FLDA MOVE FSTA #DOTMP+0006 #G0035, LDX 0556,0 FLDA X FADD X1 FSTA X LDX 0557,0 FLDA Y FADD X2 FSTA Y LDX 0560,0 FLDA X FSUB #LIT+0116 EXTERN #LT JSA #LT FSTA #TMP+0000 FLDA X FSUB #LIT+0135 EXTERN #GE JSA #GE FADD #TMP+0000 EXTERN #NE JSA #NE FSTA #TMP+0000 FLDA Y FSUB #LIT+0116 EXTERN #LT JSA #LT FADD #TMP+0000 EXTERN #NE JSA #NE FSTA #TMP+0000 FLDA Y FSUB #LIT+0135 EXTERN #GE JSA #GE FADD #TMP+0000 JNE #2170 LDX 0561,0 FLDA X EXTERN #FIX JSA #FIX FSTA ZONE1 LDX 0562,0 FLDA Y EXTERN #FIX JSA #FIX FSTA ZONE2 LDX 0563,0 FLDA #LIT+0000 FSTA INSERT LDX 0564,0 JSR CHECK LDX 0565,0 FLDA OK FSUB #LIT+0003 JEQ #2070 LDX 0566,0 FLDA X FSUB X1 FSTA #TMP+0000 JSR INT JA .+0004 JA #TMP+0000 FSTA SECT1 LDX 0567,0 FLDA Y FSUB X2 FSTA #TMP+0000 JSR INT JA .+0004 JA #TMP+0000 FSTA SECT2 LDX 0570,0 FLDA SECT1 FSTA ZONE1 LDX 0571,0 FLDA SECT2 FSTA ZONE2 LDX 0572,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #2030+2 FLDA SECT1 EXTERN #RSVO TRAP3 #RSVO FLDA SECT2 EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0573,0 #2030, JA .+0051 4050 6130 5447 2701 2220 4005 1607 1116 0523 4023 1025 2404 1727 1640 0124 4023 0503 2417 2240 4754 1162 5447 4054 4754 1162 5440 4740 0425 0540 2417 4002 0104 4016 0126 0107 0124 1117 1647 5100 LDX 0574,0 JA #2080 LDX 0575,0 #2070, FLDA I FADD #LIT+0003 FSTA I FSUB #DOTMP+0006 JLE #G0035 LDX 0576,0 JSR INT JA .+0004 JA X FSTA SECT1 LDX 0577,0 JSR INT JA .+0004 JA Y FSTA SECT2 LDX 0600,0 FLDA SECT1 FSTA ZONE1 LDX 0601,0 FLDA SECT2 FSTA ZONE2 LDX 0602,0 #2080, FLDA #LIT+0003 FSTA INSERT LDX 0603,0 FLDA #LIT+0011 FMUL #LIT+0030 FADD ZONE2 FMUL #LIT+0030 FADD ZONE1 ATX 7 FLDA INSERT FSTA ARRAY-0333,7 LDX 0604,0 FLDA ENERGY FSUB MOVE FADD #LIT+0017 FSTA ENERGY LDX 0605,0 FLDA TIME FADD #LIT+0154 FSTA TIME LDX 0606,0 FLDA WARP FSUB #LIT+0003 JLT #2150 LDX 0607,0 FLDA TIME FADD #LIT+0102 FSTA TIME LDX 0610,0 #2150, FLDA TIME0 FADD DATLFT FSUB TIME JGE #1260 LDX 0611,0 #3969, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #3970+2 FLDA TIME EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0612,0 #3970, JA .+0020 5061 3054 4711 2440 1123 4023 2401 2204 0124 0540 4754 0667 5661 5100 LDX 0613,0 JA #4020 LDX 0614,0 #2170, FLDA QUAD1 FMUL #LIT+0030 FADD SECT1 FSTA #TMP+0000 FLDA X1 FMUL MOVE FADD #TMP+0000 FSTA X LDX 0615,0 FLDA QUAD2 FMUL #LIT+0030 FADD SECT2 FSTA #TMP+0000 FLDA X2 FMUL MOVE FADD #TMP+0000 FSTA Y LDX 0616,0 FLDA X FDIV #LIT+0030 FSTA #TMP+0000 JSR INT JA .+0004 JA #TMP+0000 FSTA QUAD1 LDX 0617,0 FLDA Y FDIV #LIT+0030 FSTA #TMP+0000 JSR INT JA .+0004 JA #TMP+0000 FSTA QUAD2 LDX 0620,0 FLDA QUAD1 FMUL #LIT+0030 FNEG FADD X FSTA #TMP+0000 JSR INT JA .+0004 JA #TMP+0000 FSTA SECT1 LDX 0621,0 FLDA QUAD2 FMUL #LIT+0030 FNEG FADD Y FSTA #TMP+0000 JSR INT JA .+0004 JA #TMP+0000 FSTA SECT2 LDX 0622,0 FLDA SECT1 FSUB #LIT+0000 JNE #2260 LDX 0623,0 FLDA QUAD1 FSUB #LIT+0003 FSTA QUAD1 LDX 0624,0 FLDA #LIT+0030 FSTA SECT1 LDX 0625,0 #2260, FLDA SECT2 FSUB #LIT+0000 JNE #2290 LDX 0626,0 FLDA QUAD2 FSUB #LIT+0003 FSTA QUAD2 LDX 0627,0 FLDA #LIT+0030 FSTA SECT2 LDX 0630,0 #2290, FLDA TIME FADD #LIT+0116 FSTA TIME LDX 0631,0 FLDA ENERGY FSUB MOVE FADD #LIT+0017 FSTA ENERGY LDX 0632,0 FLDA TIME0 FADD DATLFT FSUB TIME JLT #3969 LDX 0633,0 JA #810 LDX 0634,0 #2800, FLDA #LIT+0017 ATX 7 FLDA DAMAGE-0003,7 FSUB #LIT+0000 JGE #2830 LDX 0635,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #2810+2 EXTERN #RENDO TRAP3 #RENDO LDX 0636,0 #2810, JA .+0026 4050 6130 5447 2010 1724 1716 4024 2502 0523 4001 2205 4016 1724 4017 2005 2201 2411 1716 1447 5100 LDX 0637,0 FLDA HELL JAC LDX 0640,0 #2830, FLDA TORPED FSUB #LIT+0000 JGT #2860 LDX 0641,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #2840+2 EXTERN #RENDO TRAP3 #RENDO LDX 0642,0 #2840, JA .+0025 4050 6130 5447 0114 1440 2010 1724 1716 4024 1722 2005 0417 0523 4005 3020 0516 0405 0447 5100 LDX 0643,0 FLDA HELL JAC LDX 0644,0 #2860, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #2862+2 EXTERN #RENDO TRAP3 #RENDO LDX 0645,0 #2862, JA .+0022 4050 6130 5447 2417 2220 0504 1740 0317 2522 2305 4050 6155 7151 7277 4754 4451 LDX 0646,0 EXTERN #READO TRAP3 #READO JA #LIT+0014 JA #1420+2 EXTERN #RSVO TRAP3 #RSVO FSTA COURSE EXTERN #RENDO TRAP3 #RENDO LDX 0647,0 FLDA COURSE FSUB #LIT+0000 JNE #G0036 FLDA HELL JAC #G0036, LDX 0650,0 FLDA COURSE FSUB #LIT+0003 EXTERN #LT JSA #LT FSTA #TMP+0000 FLDA COURSE FSUB #LIT+0033 EXTERN #GE JSA #GE FADD #TMP+0000 JNE #2860 LDX 0651,0 JSR INT JA .+0004 JA COURSE FSTA #TMP+0000 FLDA #LIT+0003 FMUL #LIT+0033 FADD #TMP+0000 ATX 7 JSR INT JA .+0004 JA COURSE FADD #LIT+0003 FSTA #TMP+0000 FLDA #LIT+0003 FMUL #LIT+0033 FADD #TMP+0000 ATX 6 JSR INT JA .+0004 JA COURSE FSTA #TMP+0000 FLDA #LIT+0003 FMUL #LIT+0033 FADD #TMP+0000 ATX 5 FLDA CHART-0036,6 FSUB CHART-0036,5 FSTA #TMP+0000 JSR INT JA .+0004 JA COURSE FNEG FADD COURSE FMUL #TMP+0000 FADD CHART-0036,7 FSTA X1 LDX 0652,0 JSR INT JA .+0004 JA COURSE FSTA #TMP+0000 FLDA #LIT+0006 FMUL #LIT+0033 FADD #TMP+0000 ATX 7 JSR INT JA .+0004 JA COURSE FADD #LIT+0003 FSTA #TMP+0000 FLDA #LIT+0006 FMUL #LIT+0033 FADD #TMP+0000 ATX 6 JSR INT JA .+0004 JA COURSE FSTA #TMP+0000 FLDA #LIT+0006 FMUL #LIT+0033 FADD #TMP+0000 ATX 5 FLDA CHART-0036,6 FSUB CHART-0036,5 FSTA #TMP+0000 JSR INT JA .+0004 JA COURSE FNEG FADD COURSE FMUL #TMP+0000 FADD CHART-0036,7 FSTA X2 LDX 0653,0 FLDA SECT1 FSTA X LDX 0654,0 FLDA SECT2 FSTA Y LDX 0655,0 FLDA TORPED FSUB #LIT+0003 FSTA TORPED LDX 0656,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #2950+2 EXTERN #RENDO TRAP3 #RENDO LDX 0657,0 #2950, JA .+0015 4050 6130 5447 2417 2220 0504 1740 2422 0103 1372 4751 LDX 0660,0 #2960, FLDA X FADD X1 FSTA X LDX 0661,0 FLDA Y FADD X2 FSTA Y LDX 0662,0 FLDA X FSUB #LIT+0003 EXTERN #LT JSA #LT FSTA #TMP+0000 FLDA X FSUB #LIT+0033 EXTERN #GE JSA #GE FADD #TMP+0000 EXTERN #NE JSA #NE FSTA #TMP+0000 FLDA Y FSUB #LIT+0003 EXTERN #LT JSA #LT FADD #TMP+0000 EXTERN #NE JSA #NE FSTA #TMP+0000 FLDA Y FSUB #LIT+0033 EXTERN #GE JSA #GE FADD #TMP+0000 JNE #3420 LDX 0663,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #2990+2 FLDA X EXTERN #RSVO TRAP3 #RSVO FLDA Y EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0664,0 #2990, JA .+0015 4050 6165 3054 0761 6656 7054 4754 4754 0761 6656 7051 LDX 0665,0 FLDA X FADD #LIT+0162 FSTA #TMP+0000 JSR INT JA .+0004 JA #TMP+0000 FSTA #TMP+0000 FLDA X FADD #LIT+0074 FSTA #TMP+0003 JSR INT JA .+0004 JA #TMP+0003 FSUB #TMP+0000 JNE #2960 LDX 0666,0 FLDA Y FADD #LIT+0162 FSTA #TMP+0000 JSR INT JA .+0004 JA #TMP+0000 FSTA #TMP+0000 FLDA Y FADD #LIT+0074 FSTA #TMP+0003 JSR INT JA .+0004 JA #TMP+0003 FSUB #TMP+0000 JNE #2960 LDX 0667,0 FLDA X FADD #LIT+0071 FSTA #TMP+0000 JSR INT JA .+0004 JA #TMP+0000 FSTA ZONE1 LDX 0670,0 FLDA Y FADD #LIT+0071 FSTA #TMP+0000 JSR INT JA .+0004 JA #TMP+0000 FSTA ZONE2 LDX 0671,0 FLDA #LIT+0000 FSTA INSERT LDX 0672,0 JSR CHECK LDX 0673,0 FLDA OK FSUB #LIT+0003 JEQ #2960 LDX 0674,0 FLDA #LIT+0006 FSTA INSERT LDX 0675,0 JSR CHECK LDX 0676,0 FLDA OK FSUB #LIT+0000 JEQ #3220 LDX 0677,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #3120+2 EXTERN #RENDO TRAP3 #RENDO LDX 0700,0 #3120, JA .+0022 5061 3054 4752 5252 4013 1411 1607 1716 4004 0523 2422 1731 0504 4052 5252 4751 LDX 0701,0 FLDA KLING3 FSUB #LIT+0003 FSTA KLING3 LDX 0702,0 FLDA TKLING FSUB #LIT+0003 FSTA TKLING LDX 0703,0 FLDA TKLING FSUB #LIT+0000 JLE #4040 LDX 0704,0 FLDA #LIT+0003 FSTA I #G0037, LDX 0705,0 FLDA #LIT+0003 FMUL #LIT+0011 FADD I ATX 7 FLDA ZONE1 FSUB KLINST-0014,7 EXTERN #NE JSA #NE FSTA #TMP+0000 FLDA #LIT+0006 FMUL #LIT+0011 FADD I ATX 6 FLDA ZONE2 FSUB KLINST-0014,6 EXTERN #NE JSA #NE FADD #TMP+0000 JNE #3190 LDX 0706,0 FLDA #LIT+0011 FMUL #LIT+0011 FADD I ATX 7 FLDA #LIT+0000 FSTA KLINST-0014,7 LDX 0707,0 #3190, FLDA I FADD #LIT+0003 FSTA I FSUB #LIT+0011 JLE #G0037 LDX 0710,0 JA #3360 LDX 0711,0 #3220, FLDA #LIT+0014 FSTA INSERT LDX 0712,0 JSR CHECK LDX 0713,0 FLDA OK FSUB #LIT+0000 JEQ #3290 LDX 0714,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #3270+2 EXTERN #RENDO TRAP3 #RENDO LDX 0715,0 #3270, JA .+0026 4050 6130 5447 3117 2540 0301 1647 4724 4004 0523 2422 1731 4023 2401 2223 5440 2311 1414 3147 5100 LDX 0716,0 JA #3420 LDX 0717,0 #3290, FLDA #LIT+0011 FSTA INSERT LDX 0720,0 JSR CHECK LDX 0721,0 FLDA OK FSUB #LIT+0000 JEQ #2960 LDX 0722,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #3340+2 EXTERN #RENDO TRAP3 #RENDO LDX 0723,0 #3340, JA .+0036 4050 6130 5447 5252 5240 2324 0122 4002 0123 0540 0405 2324 2217 3105 0440 5252 5256 5656 5656 5603 1716 0722 0124 2514 0124 1117 1623 4751 LDX 0724,0 FLDA BASES3 FSUB #LIT+0003 FSTA BASES3 LDX 0725,0 FLDA TBASES FSUB #LIT+0003 FSTA TBASES LDX 0726,0 #3360, FLDA #LIT+0000 FSTA INSERT LDX 0727,0 FLDA #LIT+0011 FMUL #LIT+0030 FADD ZONE2 FMUL #LIT+0030 FADD ZONE1 ATX 7 FLDA INSERT FSTA ARRAY-0333,7 LDX 0730,0 FLDA #LIT+0003 FMUL #LIT+0030 FADD QUAD2 FMUL #LIT+0030 FADD QUAD1 ATX 7 FLDA KLING3 FMUL #LIT+0047 FSTA #TMP+0000 FLDA BASES3 FMUL #LIT+0036 FADD #TMP+0000 FADD STARS3 FSTA ARRAY-0333,7 LDX 0731,0 FLDA #LIT+0006 FMUL #LIT+0030 FADD QUAD2 FMUL #LIT+0030 FADD QUAD1 ATX 7 FLDA ARRAY-0333,7 FSUB #LIT+0003 JLT #3410 LDX 0732,0 FLDA #LIT+0006 FMUL #LIT+0030 FADD QUAD2 FMUL #LIT+0030 FADD QUAD1 ATX 7 FLDA #LIT+0003 FMUL #LIT+0030 FADD QUAD2 FMUL #LIT+0030 FADD QUAD1 ATX 6 FLDA ARRAY-0333,6 FSTA ARRAY-0333,7 LDX 0733,0 #3410, JA #3430 LDX 0734,0 #3420, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #3422+2 EXTERN #RENDO TRAP3 #RENDO LDX 0735,0 #3422, JA .+0015 4050 6130 5447 2417 2220 0504 1740 1511 2323 0504 4751 LDX 0736,0 #3430, JSR SHOOT LDX 0737,0 FLDA SHIELD FSUB #LIT+0000 EXTERN #LT JSA #LT FSTA #TMP+0000 FLDA ENERGY FSUB #LIT+0000 EXTERN #LT JSA #LT FADD #TMP+0000 JNE #4000 LDX 0740,0 FLDA HELL JAC LDX 0741,0 #2530, FLDA KLING3 FSUB #LIT+0000 JGT #2540 LDX 0742,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #3670+2 EXTERN #RENDO TRAP3 #RENDO LDX 0743,0 #3670, JA .+0042 5061 3054 4723 1017 2224 4022 0116 0705 4023 0516 2317 2223 4022 0520 1722 2440 1617 4013 1411 1607 1716 2340 1116 4024 1011 2340 4021 2501 0422 0116 2447 5100 LDX 0744,0 FLDA HELL JAC LDX 0745,0 #2540, FLDA #LIT+0014 ATX 7 FLDA DAMAGE-0003,7 FSUB #LIT+0000 JGE #2570 LDX 0746,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #2550+2 EXTERN #RENDO TRAP3 #RENDO LDX 0747,0 #2550, JA .+0021 5061 3054 4720 1001 2305 2223 4016 1724 4017 2005 2201 2411 1716 0114 4751 LDX 0750,0 FLDA HELL JAC LDX 0751,0 #2570, FLDA #LIT+0030 ATX 7 FLDA DAMAGE-0003,7 FSUB #LIT+0000 JGE #2590 LDX 0752,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #2580+2 EXTERN #RENDO TRAP3 #RENDO LDX 0753,0 #2580, JA .+0027 4050 6230 5447 0317 1520 2524 0522 4006 0111 1425 2205 4010 0115 2005 2223 4001 0303 2522 0103 3147 5100 LDX 0754,0 #2590, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #2592+2 FLDA ENERGY EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0755,0 #2592, JA .+0061 4050 6130 5447 2010 0123 0522 2340 1417 0313 0504 4017 1640 2401 2207 0524 5640 4005 1605 2207 3140 0126 0111 1401 0214 0540 7540 4754 4011 6454 5754 6130 5447 1625 1502 0522 4017 0640 2516 1124 2340 2417 4006 1122 0572 7747 5444 5100 LDX 0756,0 EXTERN #READO TRAP3 #READO JA #LIT+0014 JA #1420+2 EXTERN #RSVO TRAP3 #RSVO FSTA X EXTERN #RENDO TRAP3 #RENDO LDX 0757,0 JSR INT JA .+0004 JA X FSTA ITEMP LDX 0760,0 FLDA ITEMP FSUB #LIT+0000 JGT #G0040 FLDA HELL JAC #G0040, LDX 0761,0 FLDA ENERGY FSUB ITEMP FSUB #LIT+0000 JLT #2590 LDX 0762,0 FLDA ENERGY FSUB ITEMP FSTA ENERGY LDX 0763,0 JSR SHOOT LDX 0764,0 FLDA SHIELD FSUB #LIT+0000 JLT #4000 LDX 0765,0 FLDA #LIT+0030 ATX 7 FLDA DAMAGE-0003,7 FSUB #LIT+0000 JGE #2680 LDX 0766,0 JSR RAN JA .+0006 JA IRA JA JONES FMUL X FSTA X LDX 0767,0 #2680, FLDA #LIT+0003 FSTA I #G0041, LDX 0770,0 FLDA #LIT+0011 FMUL #LIT+0011 FADD I ATX 7 FLDA KLINST-0014,7 FSUB #LIT+0000 JLE #2770 LDX 0771,0 FLDA #LIT+0003 FMUL #LIT+0011 FADD I ATX 7 FLDA KLINST-0014,7 FSUB SECT1 FSTA #BASE FLDA #LIT+0006 EXTERN #EXPII JSA #EXPII FSTA #TMP+0000 FLDA #LIT+0006 FMUL #LIT+0011 FADD I ATX 6 FLDA KLINST-0014,6 FSUB SECT2 FSTA #BASE FLDA #LIT+0006 EXTERN #EXPII JSA #EXPII FADD #TMP+0000 FSTA #TMP+0000 JSR FLOAT JA .+0004 JA #TMP+0000 FSTA #TMP+0000 JSR SQRT JA .+0004 JA #TMP+0000 FSTA TEMP LDX 0772,0 FLDA X FDIV KLING3 FDIV TEMP FSTA #TMP+0000 JSR RAN JA .+0006 JA IRA JA JONES FMUL #LIT+0006 FMUL #TMP+0000 FSTA #TMP+0000 JSR INT JA .+0004 JA #TMP+0000 FSTA HIT LDX 0773,0 FLDA #LIT+0011 FMUL #LIT+0011 FADD I ATX 7 FLDA KLINST-0014,7 FSUB HIT FSTA KLINST-0014,7 LDX 0774,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #2720+2 FLDA HIT EXTERN #RSVO TRAP3 #RSVO FLDA #LIT+0003 FMUL #LIT+0011 FADD I ATX 7 FLDA KLINST-0014,7 EXTERN #RSVO TRAP3 #RSVO FLDA #LIT+0006 FMUL #LIT+0011 FADD I ATX 6 FLDA KLINST-0014,6 EXTERN #RSVO TRAP3 #RSVO FLDA #LIT+0011 FMUL #LIT+0011 FADD I ATX 5 FLDA KLINST-0014,5 EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0775,0 #2720, JA .+0046 5061 3054 1164 5447 4025 1611 2440 1011 2440 1716 4013 1411 1607 1716 4001 2440 2305 0324 1722 4047 5411 6254 4754 4754 1162 5440 6530 5447 5047 5411 6554 4740 1405 0624 5147 5100 LDX 0776,0 FLDA #LIT+0011 FMUL #LIT+0011 FADD I ATX 7 FLDA KLINST-0014,7 FSUB #LIT+0000 JGT #2770 LDX 0777,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #3690+2 FLDA #LIT+0003 FMUL #LIT+0011 FADD I ATX 7 FLDA KLINST-0014,7 EXTERN #RSVO TRAP3 #RSVO FLDA #LIT+0006 FMUL #LIT+0011 FADD I ATX 6 FLDA KLINST-0014,6 EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 1000,0 #3690, JA .+0036 5061 3054 4752 5252 4013 1411 1607 1716 4001 2440 2305 0324 1722 4047 5411 6254 4754 4754 1162 5447 4004 0523 2422 1731 0504 4052 5252 4751 LDX 1001,0 FLDA KLING3 FSUB #LIT+0003 FSTA KLING3 LDX 1002,0 FLDA TKLING FSUB #LIT+0003 FSTA TKLING LDX 1003,0 FLDA #LIT+0003 FMUL #LIT+0011 FADD I ATX 7 FLDA KLINST-0014,7 FSTA ZONE1 LDX 1004,0 FLDA #LIT+0006 FMUL #LIT+0011 FADD I ATX 7 FLDA KLINST-0014,7 FSTA ZONE2 LDX 1005,0 FLDA #LIT+0000 FSTA INSERT LDX 1006,0 FLDA #LIT+0011 FMUL #LIT+0030 FADD ZONE2 FMUL #LIT+0030 FADD ZONE1 ATX 7 FLDA INSERT FSTA ARRAY-0333,7 LDX 1007,0 FLDA #LIT+0003 FMUL #LIT+0030 FADD QUAD2 FMUL #LIT+0030 FADD QUAD1 ATX 7 FLDA KLING3 FMUL #LIT+0047 FSTA #TMP+0000 FLDA BASES3 FMUL #LIT+0036 FADD #TMP+0000 FADD STARS3 FSTA ARRAY-0333,7 LDX 1010,0 FLDA #LIT+0006 FMUL #LIT+0030 FADD QUAD2 FMUL #LIT+0030 FADD QUAD1 ATX 7 FLDA ARRAY-0333,7 FSUB #LIT+0003 JLT #2760 LDX 1011,0 FLDA #LIT+0006 FMUL #LIT+0030 FADD QUAD2 FMUL #LIT+0030 FADD QUAD1 ATX 7 FLDA #LIT+0003 FMUL #LIT+0030 FADD QUAD2 FMUL #LIT+0030 FADD QUAD1 ATX 6 FLDA ARRAY-0333,6 FSTA ARRAY-0333,7 LDX 1012,0 #2760, FLDA TKLING FSUB #LIT+0000 JLE #4040 LDX 1013,0 #2770, FLDA I FADD #LIT+0003 FSTA I FSUB #LIT+0011 JLE #G0041 LDX 1014,0 FLDA ENERGY FSUB #LIT+0000 JLT #4000 LDX 1015,0 FLDA HELL JAC LDX 1016,0 #4040, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #4042+2 EXTERN #RENDO TRAP3 #RENDO LDX 1017,0 #4042, JA .+0067 5057 5754 6130 5447 2410 0540 1401 2324 4013 1411 1607 1716 4002 0124 2414 0540 0322 2511 2305 2240 1001 2340 0205 0516 4040 0405 2324 2217 3105 0447 5457 5461 3054 4724 1005 4006 0504 0522 0124 1117 1640 1001 2340 0205 0516 4023 0126 0504 4141 4141 4147 5457 5100 LDX 1020,0 FLDA TIME FSUB TIME0 FSTA TIMDIF LDX 1021,0 FLDA KLING7 FDIV TIMDIF FMUL #LIT+0060 FSTA EFF LDX 1022,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #4080+2 FLDA EFF EXTERN #RSVO TRAP3 #RSVO FLDA TIMDIF EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 1023,0 #4080, JA .+0105 5061 3054 4731 1725 2240 0506 0611 0311 0516 0331 4022 0124 1116 0740 7540 4754 0661 6656 6254 5754 4061 3054 4731 1725 2240 0103 2425 0114 4024 1115 0540 1706 4015 1123 2311 1716 4075 4047 5406 6166 5661 5447 4023 2401 2204 0124 0523 4754 5757 5754 4061 3054 4704 1740 3117 2540 2701 1624 4024 1740 2422 3140 0107 0111 1677 4754 4451 LDX 1024,0 #4106, EXTERN #READO TRAP3 #READO JA #LIT+0014 JA #40+2 EXTERN #RSVO TRAP3 #RSVO FSTA ANSWER EXTERN #RENDO TRAP3 #RENDO LDX 1025,0 FLDA ANSWER FSUB YES JEQ #5 LDX 1026,0 FLDA ANSWER FSUB NO JNE #G0042 EXTERN #NE EXTERN #EXIT JSR #EXIT #G0042, LDX 1027,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #50+2 EXTERN #RENDO TRAP3 #RENDO LDX 1030,0 JA #4106 LDX 1031,0 #2330, FLDA #LIT+0011 ATX 7 FLDA DAMAGE-0003,7 FSUB #LIT+0000 JGE #2370 LDX 1032,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #2340+2 EXTERN #RENDO TRAP3 #RENDO LDX 1033,0 #2340, JA .+0027 4050 6130 5447 1417 1607 4022 0116 0705 4023 0516 2317 2223 4001 2205 4011 1617 2005 2201 0214 0547 5100 LDX 1034,0 FLDA HELL JAC LDX 1035,0 #2370, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #2375+2 FLDA QUAD1 EXTERN #RSVO TRAP3 #RSVO FLDA QUAD2 EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 1036,0 #2375, JA .+0035 5061 3054 4714 1716 0740 2201 1607 0540 2305 1623 1722 4023 0301 1640 0617 2240 2125 0104 2201 1624 4047 5411 6254 4754 4047 5411 6251 LDX 1037,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #2380+2 EXTERN #RENDO TRAP3 #RENDO LDX 1040,0 #2380, JA .+0020 4050 6130 5447 5555 5555 5555 5555 5555 5555 5555 5555 5555 5547 5100 LDX 1041,0 FLDA #LIT+0003 FSTA I #G0043, LDX 1042,0 FLDA #LIT+0003 FSTA J #G0044, LDX 1043,0 FLDA I FADD QUAD1 FSUB #LIT+0006 FSTA IX LDX 1044,0 FLDA J FADD QUAD2 FSUB #LIT+0006 FSTA JX LDX 1045,0 FLDA IX FSUB #LIT+0003 EXTERN #LT JSA #LT FSTA #TMP+0000 FLDA IX FSUB #LIT+0030 EXTERN #GT JSA #GT FADD #TMP+0000 EXTERN #NE JSA #NE FSTA #TMP+0000 FLDA JX FSUB #LIT+0003 EXTERN #LT JSA #LT FADD #TMP+0000 EXTERN #NE JSA #NE FSTA #TMP+0000 FLDA JX FSUB #LIT+0030 EXTERN #GT JSA #GT FADD #TMP+0000 JNE #2460 LDX 1046,0 FLDA JX FSUB QUAD2 FADD #LIT+0006 ATX 7 FLDA #LIT+0003 FMUL #LIT+0030 FADD JX FMUL #LIT+0030 FADD IX ATX 6 FLDA ARRAY-0333,6 FSTA LONG-0003,7 LDX 1047,0 FLDA #LIT+0030 ATX 7 FLDA DAMAGE-0003,7 FSUB #LIT+0000 JLT #2470 LDX 1050,0 FLDA #LIT+0006 FMUL #LIT+0030 FADD JX FMUL #LIT+0030 FADD IX ATX 7 FLDA #LIT+0003 FMUL #LIT+0030 FADD JX FMUL #LIT+0030 FADD IX ATX 6 FLDA ARRAY-0333,6 FSTA ARRAY-0333,7 LDX 1051,0 JA #2470 LDX 1052,0 #2460, FLDA JX FSUB QUAD2 FADD #LIT+0006 ATX 7 FLDA #LIT+0000 FSTA LONG-0003,7 LDX 1053,0 #2470, FLDA J FADD #LIT+0003 FSTA J FSUB #LIT+0011 JLE #G0044 LDX 1054,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #2472+2 FLDA #LIT+0003 ATX 7 FLDA LONG-0003,7 EXTERN #RSVO TRAP3 #RSVO FLDA #LIT+0006 ATX 6 FLDA LONG-0003,6 EXTERN #RSVO TRAP3 #RSVO FLDA #LIT+0011 ATX 5 FLDA LONG-0003,5 EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 1055,0 #2472, JA .+0023 4050 6130 5447 7247 5411 6454 4740 7247 5411 6454 4740 7247 5411 6454 4740 7247 5100 LDX 1056,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #2380+2 EXTERN #RENDO TRAP3 #RENDO LDX 1057,0 #2500, FLDA I FADD #LIT+0003 FSTA I FSUB #LIT+0011 JLE #G0043 LDX 1060,0 FLDA HELL JAC LDX 1061,0 #3560, FLDA #LIT+0022 ATX 7 FLDA DAMAGE-0003,7 FSUB #LIT+0000 JGE #3580 LDX 1062,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #3570+2 EXTERN #RENDO TRAP3 #RENDO LDX 1063,0 #3570, JA .+0031 4050 6130 5447 0401 1501 0705 4003 1716 2422 1714 4022 0520 1722 2440 1123 4016 1724 4001 2601 1114 0102 1405 4751 LDX 1064,0 FLDA HELL JAC LDX 1065,0 #3580, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #3590+2 FLDA #LIT+0003 ATX 7 FLDA DAMAGE-0003,7 EXTERN #RSVO TRAP3 #RSVO FLDA #LIT+0006 ATX 6 FLDA DAMAGE-0003,6 EXTERN #RSVO TRAP3 #RSVO FLDA #LIT+0011 ATX 5 FLDA DAMAGE-0003,5 EXTERN #RSVO TRAP3 #RSVO FLDA #LIT+0014 ATX 4 FLDA DAMAGE-0003,4 EXTERN #RSVO TRAP3 #RSVO FLDA #LIT+0017 ATX 3 FLDA DAMAGE-0003,3 EXTERN #RSVO TRAP3 #RSVO FLDA #LIT+0022 ATX 2 FLDA DAMAGE-0003,2 EXTERN #RSVO TRAP3 #RSVO FLDA #LIT+0025 ATX 1 FLDA DAMAGE-0003,1 EXTERN #RSVO TRAP3 #RSVO FLDA #LIT+0030 FMUL #LIT+0011 ALN 0 STARTD FADD #LIT+0174 STARTF FSTA #TMP+0000 FLDA #TMP+0000 FSTA #BASE FLDA% #BASE EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 1066,0 #3590, JA .+0253 4050 5754 6130 5447 0401 1501 0705 4003 1716 2422 1714 4022 0520 1722 2472 4754 5757 5440 4061 3054 4704 0526 1103 0540 4040 4040 4040 4040 4040 4040 4040 4040 4040 4040 4040 2324 0124 0540 1706 4022 0520 0111 2247 5457 5440 4061 3054 4727 0122 2040 0422 1126 0547 5424 6267 5406 6166 5662 5457 5461 3054 4723 5622 5640 2305 1623 1722 2347 5424 6267 5406 6166 5662 5457 5440 4061 3054 4714 5622 5640 2305 1623 1722 2347 5424 6267 5406 6166 5662 5457 5461 3054 4720 1001 2305 2240 0317 1624 2217 1447 5424 6267 5406 6166 5662 5457 5440 4061 3054 4720 1017 2417 1640 2425 0205 2347 5424 6267 5406 6166 5662 5457 5461 3054 4704 0115 0107 0540 0317 1624 2217 1447 5424 6267 5406 6166 5662 5457 5440 4061 3054 4723 1011 0514 0440 0317 1624 2217 1447 5424 6267 5406 6166 5662 5457 5461 3054 4703 1715 2025 2405 2247 5424 6267 5406 6166 5662 5457 5100 LDX 1067,0 FLDA HELL JAC LDX 1070,0 #3460, FLDA #LIT+0025 ATX 7 FLDA DAMAGE-0003,7 FSUB #LIT+0000 JGE #3480 LDX 1071,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #3470+2 EXTERN #RENDO TRAP3 #RENDO LDX 1072,0 #3470, JA .+0027 4050 6130 5447 2310 1105 1404 4003 1716 2422 1714 4011 2340 1617 1655 1720 0522 0124 1117 1601 1447 5100 LDX 1073,0 FLDA HELL JAC LDX 1074,0 #3480, FLDA ENERGY FADD SHIELD FSTA TEMP LDX 1075,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #3490+2 FLDA TEMP EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 1076,0 #3490, JA .+0045 4050 6130 5447 0516 0522 0731 4001 2601 1114 0102 1405 4075 4047 5411 6554 5754 4040 6430 5447 1625 1502 0522 4017 0640 2516 1124 2340 2417 4023 1011 0514 0423 7277 4754 4451 LDX 1077,0 EXTERN #READO TRAP3 #READO JA #LIT+0014 JA #1290+2 EXTERN #RSVO TRAP3 #RSVO FSTA ITEMP EXTERN #RENDO TRAP3 #RENDO LDX 1100,0 FLDA ITEMP FSUB #LIT+0000 JGE #G0045 FLDA HELL JAC #G0045, LDX 1101,0 FLDA ENERGY FADD SHIELD FSUB ITEMP FSUB #LIT+0000 JLT #3480 LDX 1102,0 FLDA ENERGY FADD SHIELD FSUB ITEMP FSTA ENERGY LDX 1103,0 FLDA ITEMP FSTA SHIELD LDX 1104,0 FLDA HELL JAC LDX 1105,0 #4630, FLDA #LIT+0030 ATX 7 FLDA DAMAGE-0003,7 FSUB #LIT+0000 JGE #4660 LDX 1106,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #4640+2 EXTERN #RENDO TRAP3 #RENDO LDX 1107,0 #4640, JA .+0017 4050 6130 5447 0317 1520 2524 0522 4004 1123 0102 1405 0447 5100 LDX 1110,0 FLDA HELL JAC LDX 1111,0 #4660, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #4662+2 EXTERN #RENDO TRAP3 #RENDO LDX 1112,0 #4662, JA .+0032 5061 3054 4703 1715 2025 2405 2240 0103 2411 2605 4001 1604 4001 2701 1124 1116 0740 0317 1515 0116 0472 7747 5444 5100 LDX 1113,0 EXTERN #READO TRAP3 #READO JA #LIT+0014 JA #1290+2 EXTERN #RSVO TRAP3 #RSVO FSTA ITEMP EXTERN #RENDO TRAP3 #RENDO LDX 1114,0 FLDA ITEMP FSUB #LIT+0000 JEQ #4740 LDX 1115,0 FLDA ITEMP FSUB #LIT+0003 JEQ #4830 LDX 1116,0 FLDA ITEMP FSUB #LIT+0006 JEQ #4880 LDX 1117,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #4690+2 EXTERN #RENDO TRAP3 #RENDO LDX 1120,0 #4690, JA .+0110 4050 6130 5447 0625 1603 2411 1716 2340 0126 1101 1401 0214 0540 0622 1715 4003 1715 2025 2405 2247 5457 5464 3054 4040 4760 4075 4003 2515 2514 0124 1126 0540 0701 1401 0324 1103 4022 0503 1722 0447 5457 5464 3054 4040 4761 4075 4023 2401 2425 2340 2205 2017 2224 4754 5754 6430 5447 6240 7540 2010 1724 1716 4024 1722 2005 0417 4004 0124 0147 5100 LDX 1121,0 JA #4660 LDX 1122,0 #4740, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #4750+2 EXTERN #RENDO TRAP3 #RENDO LDX 1123,0 #4750, JA .+0076 4050 6130 5447 0317 1520 2524 0522 4022 0503 1722 0440 1706 4007 0114 0130 3140 0617 2240 0114 1440 1417 1607 4022 0116 0705 4040 4023 0516 2317 2240 2303 0116 2347 5457 5466 3054 4761 4040 4040 4062 4040 4040 4063 4040 4040 4064 4040 4040 4065 4040 4040 4040 4066 4040 4040 4067 4040 4040 4070 4751 LDX 1124,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #4770+2 EXTERN #RENDO TRAP3 #RENDO LDX 1125,0 #4770, JA .+0035 5064 3054 4755 5555 5555 4055 5555 5555 4055 5555 5555 4055 5555 5555 4055 5555 5555 4055 5555 5555 4055 5555 5555 4055 5555 5555 4751 LDX 1126,0 FLDA #LIT+0003 FSTA I #G0046, LDX 1127,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #4795+2 FLDA I EXTERN #RSVO TRAP3 #RSVO FLDA #LIT+0006 FMUL #LIT+0030 FADD #LIT+0003 FMUL #LIT+0030 FADD I ATX 7 FLDA ARRAY-0333,7 EXTERN #RSVO TRAP3 #RSVO FLDA #LIT+0006 FMUL #LIT+0030 FADD #LIT+0006 FMUL #LIT+0030 FADD I ATX 6 FLDA ARRAY-0333,6 EXTERN #RSVO TRAP3 #RSVO FLDA #LIT+0006 FMUL #LIT+0030 FADD #LIT+0011 FMUL #LIT+0030 FADD I ATX 5 FLDA ARRAY-0333,5 EXTERN #RSVO TRAP3 #RSVO FLDA #LIT+0006 FMUL #LIT+0030 FADD #LIT+0014 FMUL #LIT+0030 FADD I ATX 4 FLDA ARRAY-0333,4 EXTERN #RSVO TRAP3 #RSVO FLDA #LIT+0006 FMUL #LIT+0030 FADD #LIT+0017 FMUL #LIT+0030 FADD I ATX 3 FLDA ARRAY-0333,3 EXTERN #RSVO TRAP3 #RSVO FLDA #LIT+0006 FMUL #LIT+0030 FADD #LIT+0022 FMUL #LIT+0030 FADD I ATX 2 FLDA ARRAY-0333,2 EXTERN #RSVO TRAP3 #RSVO FLDA #LIT+0006 FMUL #LIT+0030 FADD #LIT+0025 FMUL #LIT+0030 FADD I ATX 1 FLDA ARRAY-0333,1 EXTERN #RSVO TRAP3 #RSVO FLDA #LIT+0006 FMUL #LIT+0030 FADD #LIT+0030 FMUL #LIT+0030 FADD I FMUL #LIT+0011 ALN 0 STARTD FADD #LIT+0166 STARTF FSTA #TMP+0000 FLDA #TMP+0000 FSTA #BASE FLDA% #BASE EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 1130,0 #4795, JA .+0042 5061 3054 1162 5424 6554 1163 5424 6161 5411 6354 2461 6754 1163 5424 6263 5411 6354 2462 7154 1163 5424 6365 5411 6354 2464 6154 1163 5440 4024 6467 5411 6351 LDX 1131,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #4770+2 EXTERN #RENDO TRAP3 #RENDO LDX 1132,0 #4810, FLDA I FADD #LIT+0003 FSTA I FSUB #LIT+0030 JLE #G0046 LDX 1133,0 FLDA HELL JAC LDX 1134,0 #4830, FLDA TIME0 FADD DATLFT FSUB TIME FSTA TEMP LDX 1135,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #4840+2 FLDA TKLING EXTERN #RSVO TRAP3 #RSVO FLDA TEMP EXTERN #RSVO TRAP3 #RSVO FLDA TBASES EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 1136,0 #4840, JA .+0111 4050 6430 5447 2324 0124 2523 4022 0520 1722 2447 5457 5461 3054 4040 4716 2515 0205 2240 1706 4013 1411 1607 1716 2340 1405 0624 4075 4047 5411 6354 5754 6130 5440 4047 1625 1502 0522 4017 0640 2324 0122 0401 2405 2340 1405 0624 4075 4047 5406 6756 6154 5754 6130 5440 4047 1625 1502 0522 4017 0640 2324 0122 0201 2305 2340 1405 0624 4075 4047 5411 6351 LDX 1137,0 JA #3560 LDX 1140,0 #4880, FLDA #LIT+0000 FSTA PH8 LDX 1141,0 FLDA #LIT+0003 FSTA I #G0047, LDX 1142,0 FLDA #LIT+0011 FMUL #LIT+0011 FADD I ATX 7 FLDA KLINST-0014,7 FSUB #LIT+0000 JLE #5260 LDX 1143,0 FLDA SECT1 FSTA PC1 LDX 1144,0 FLDA SECT2 FSTA PA LDX 1145,0 FLDA #LIT+0003 FMUL #LIT+0011 FADD I ATX 7 FLDA KLINST-0014,7 FSTA PW1 LDX 1146,0 FLDA #LIT+0006 FMUL #LIT+0011 FADD I ATX 7 FLDA KLINST-0014,7 FSTA PX LDX 1147,0 JA #5010 LDX 1150,0 #4970, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #4972+2 FLDA QUAD1 EXTERN #RSVO TRAP3 #RSVO FLDA QUAD2 EXTERN #RSVO TRAP3 #RSVO FLDA SECT1 EXTERN #RSVO TRAP3 #RSVO FLDA SECT2 EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 1151,0 #4972, JA .+0073 5061 3054 4731 1725 4001 2205 4001 2440 2125 0104 2201 1624 4050 4754 1163 5447 4054 4754 1163 5447 4051 4023 0503 2417 2240 5047 5440 4011 6354 4740 5447 5411 6354 4740 5147 5457 5461 3054 4723 1011 2040 0116 0440 2401 2207 0524 4003 1717 2204 1116 0124 0523 4001 2205 7277 4754 4451 LDX 1152,0 EXTERN #READO TRAP3 #READO JA #LIT+0014 JA #4990+2 EXTERN #RSVO TRAP3 #RSVO FSTA PC1 EXTERN #RSVO TRAP3 #RSVO FSTA PA EXTERN #RSVO TRAP3 #RSVO FSTA PW1 EXTERN #RSVO TRAP3 #RSVO FSTA PX EXTERN #RENDO TRAP3 #RENDO LDX 1153,0 #4990, JA .+0006 5064 0661 6656 6051 LDX 1154,0 #5010, FLDA PX FSUB PA FSTA PX LDX 1155,0 FLDA PC1 FSUB PW1 FSTA PA LDX 1156,0 FLDA PX FSUB #LIT+0000 JLT #5130 LDX 1157,0 FLDA PA FSUB #LIT+0000 JLT #5190 LDX 1160,0 FLDA PX FSUB #LIT+0000 JGT #5070 LDX 1161,0 FLDA PA FSUB #LIT+0000 JEQ #5150 LDX 1162,0 #5070, FLDA #LIT+0116 FSTA PC1 LDX 1163,0 #5080, JSR ABS JA .+0004 JA PA FSTA #TMP+0000 JSR ABS JA .+0004 JA PX FSUB #TMP+0000 JGE #5110 LDX 1164,0 JSR ABS JA .+0004 JA PA FSTA #TMP+0000 JSR ABS JA .+0004 JA PX FNEG FADD #TMP+0000 FSTA #TMP+0000 JSR ABS JA .+0004 JA PA FADD #TMP+0000 FSTA #TMP+0000 JSR ABS JA .+0004 JA PA FSTA #TMP+0003 FLDA #TMP+0000 FDIV #TMP+0003 FADD PC1 FSTA TEMP LDX 1165,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #5090+2 FLDA TEMP EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 1166,0 #5090, JA .+0017 5061 3054 4704 1122 0503 2411 1716 4075 4047 5407 6166 5666 5100 LDX 1167,0 JA #5240 LDX 1170,0 #5110, JSR ABS JA .+0004 JA PA FSTA #TMP+0000 JSR ABS JA .+0004 JA PX FSTA #TMP+0003 FLDA #TMP+0000 FDIV #TMP+0003 FADD PC1 FSTA TEMP LDX 1171,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #5090+2 FLDA TEMP EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 1172,0 JA #5240 LDX 1173,0 #5130, FLDA PA FSUB #LIT+0000 JGT #5170 LDX 1174,0 FLDA PX FSUB #LIT+0000 JGT #5190 LDX 1175,0 #5150, FLDA #LIT+0127 FSTA PC1 LDX 1176,0 JA #5080 LDX 1177,0 #5170, FLDA #LIT+0124 FSTA PC1 LDX 1200,0 JA #5200 LDX 1201,0 #5190, FLDA #LIT+0132 FSTA PC1 LDX 1202,0 #5200, JSR ABS JA .+0004 JA PA FSTA #TMP+0000 JSR ABS JA .+0004 JA PX FSUB #TMP+0000 JLE #5230 LDX 1203,0 JSR ABS JA .+0004 JA PX FSTA #TMP+0000 JSR ABS JA .+0004 JA PA FNEG FADD #TMP+0000 FSTA #TMP+0000 JSR ABS JA .+0004 JA PX FADD #TMP+0000 FSTA #TMP+0000 JSR ABS JA .+0004 JA PX FSTA #TMP+0003 FLDA #TMP+0000 FDIV #TMP+0003 FADD PC1 FSTA TEMP LDX 1204,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #5090+2 FLDA TEMP EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 1205,0 JA #5240 LDX 1206,0 #5230, JSR ABS JA .+0004 JA PX FSTA #TMP+0000 JSR ABS JA .+0004 JA PA FSTA #TMP+0003 FLDA #TMP+0000 FDIV #TMP+0003 FADD PC1 FSTA TEMP LDX 1207,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #5090+2 FLDA TEMP EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 1210,0 #5240, FLDA PX FSTA #BASE FLDA #LIT+0006 EXTERN #EXPII JSA #EXPII FSTA #TMP+0000 FLDA PA FSTA #BASE FLDA #LIT+0006 EXTERN #EXPII JSA #EXPII FADD #TMP+0000 FSTA #TMP+0000 JSR SQRT JA .+0004 JA #TMP+0000 FSTA TEMP LDX 1211,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #5242+2 FLDA TEMP EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 1212,0 #5242, JA .+0016 5061 3054 4704 1123 2401 1603 0540 7540 4754 0761 6656 6651 LDX 1213,0 FLDA PH8 FSUB #LIT+0003 JNE #G0050 FLDA HELL JAC #G0050, LDX 1214,0 #5260, FLDA I FADD #LIT+0003 FSTA I FSUB #LIT+0011 JLE #G0047 LDX 1215,0 FLDA #LIT+0066 FSTA PH8 LDX 1216,0 #5280, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #5282+2 EXTERN #RENDO TRAP3 #RENDO LDX 1217,0 #5282, JA .+0030 5061 3054 4704 1740 3117 2540 2701 1624 4024 1740 2523 0540 2410 0540 0301 1403 2514 0124 1722 7747 5444 5100 LDX 1220,0 EXTERN #READO TRAP3 #READO JA #LIT+0014 JA #40+2 EXTERN #RSVO TRAP3 #RSVO FSTA ANSWER EXTERN #RENDO TRAP3 #RENDO LDX 1221,0 FLDA ANSWER FSUB YES JEQ #4970 LDX 1222,0 FLDA ANSWER FSUB NO JNE #G0051 FLDA HELL JAC #G0051, LDX 1223,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #50+2 EXTERN #RENDO TRAP3 #RENDO LDX 1224,0 JA #5280 LDX 1225,0 #10000, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #10010+2 LDX -0300,1 #G0052, FLDA ARRAY-26700,1 EXTERN #RSVO TRAP3 #RSVO JXN #G0052,1+ EXTERN #RENDO TRAP3 #RENDO LDX 1226,0 #10010, JA .+0005 5070 1165 5100 LDX 1227,0 FLDA HELL JAC LDX 1230,0 #20000, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #20010+2 EXTERN #RENDO TRAP3 #RENDO LDX 1231,0 #20010, JA .+0203 4050 6630 5447 1116 2324 2225 0324 1117 1623 4754 5757 5440 4061 3054 4724 1005 4007 0114 0130 3140 1123 4004 1126 1104 0504 4011 1624 1740 0116 4070 5470 4021 2501 0422 0116 2440 0722 1104 4754 5754 4040 6130 5447 2710 1103 1040 1123 4011 1640 2425 2216 4004 1126 1104 0504 4011 1624 1740 0116 4070 5470 4023 0503 2417 2240 0722 1104 5647 5457 5754 4040 6130 5447 2410 0540 0301 2324 4017 0640 0310 0122 0103 2405 2223 4011 2340 0123 4006 1714 1417 2723 7247 5457 5440 4061 3054 4774 5276 4075 4005 1624 0522 2022 1123 0547 5457 5461 3054 4753 5353 4075 4013 1411 1607 1716 4754 5754 6130 5447 7641 7440 7540 4040 2324 0122 0201 2305 4754 5751 LDX 1232,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #20011+2 EXTERN #RENDO TRAP3 #RENDO LDX 1233,0 #20011, JA .+0215 5062 3054 4752 4040 7540 2324 0122 4754 5754 6130 5447 0317 1515 0116 0440 6040 7540 2701 2220 4005 1607 1116 0540 0317 1624 2217 1472 4754 5754 4040 6330 5447 0317 2522 2305 4011 2340 1116 4001 4003 1122 0325 1401 2240 1625 1505 2211 0301 1440 4040 4040 4064 4040 6340 4062 4754 5754 4040 6330 5447 2605 0324 1722 4001 2222 0116 0705 1505 1624 4001 2340 2310 1727 1656 4040 4040 4040 4040 4040 4040 3440 3640 5747 5457 5440 4063 3054 4711 1624 0507 0522 4001 1604 4022 0501 1440 2601 1425 0523 4015 0131 4002 0540 4040 4040 4040 4040 4040 3436 5747 5457 5440 4063 3054 4725 2305 0456 4040 2410 0522 0506 1722 0540 0317 2522 2305 4061 5665 4011 2340 4040 4040 4040 4065 4055 5555 5555 4061 4751 LDX 1234,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #20020+2 EXTERN #RENDO TRAP3 #RENDO LDX 1235,0 #20020, JA .+0200 5063 3054 4710 0114 0640 2701 3140 0205 2427 0505 1640 6140 0116 0440 6256 4040 4040 4040 4040 4040 4040 4040 4040 5741 3447 5457 5440 4064 6330 5447 5740 4140 3447 5457 5440 4063 3054 4701 4026 0503 2417 2240 1706 4071 4011 2340 2516 0405 0611 1605 0454 4002 2524 4040 4040 4040 4040 6640 4067 4040 7047 5457 5440 4063 3054 4726 0114 2505 2340 1501 3140 0120 2022 1701 0310 4071 5647 5461 6730 5447 0317 2522 2305 4754 5757 5440 4063 3054 4717 1605 4027 0122 2040 0601 0324 1722 4011 2340 2410 0540 2311 3205 4017 0647 5457 5440 4063 3054 4717 1605 4021 2501 0422 0116 2456 4040 2410 0522 0506 1722 0540 2417 4007 0524 4754 5751 LDX 1236,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #20021+2 EXTERN #RENDO TRAP3 #RENDO LDX 1237,0 #20021, JA .+0140 5063 3054 4706 2217 1540 2125 0104 2201 1624 4066 5465 4024 1740 6554 6540 3117 2540 2717 2514 0447 5457 5440 4063 3054 4725 2305 4003 1725 2223 0540 6356 4027 0122 2040 0601 0324 1722 4061 5647 5457 5754 4040 6130 5447 0317 1515 0116 0440 6140 7540 2310 1722 2440 2201 1607 0540 2305 1623 1722 4023 0301 1647 5457 5440 4063 3054 4720 2211 1624 2340 2410 0540 2125 0104 2201 1624 4031 1725 4001 2205 4003 2522 2205 1624 1431 4011 1656 4040 1116 0314 2504 1116 0747 5100 LDX 1240,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #20030+2 EXTERN #RENDO TRAP3 #RENDO LDX 1241,0 #20030, JA .+0215 5063 3054 4723 2401 2223 5440 1314 1116 0717 1623 5440 2324 0122 0201 2305 2354 4001 1604 4024 1005 4005 1624 0522 2022 1123 0556 4040 4001 1417 1607 4754 5754 4040 6330 5447 2711 2410 4017 2410 0522 4020 0522 2411 1601 2405 4011 1606 1722 1501 2411 1716 5647 5457 5754 4040 6130 5447 0317 1515 0116 0440 6240 7540 1417 1607 4022 0116 0705 4023 0516 2317 2240 2303 0116 4754 5754 4040 6330 5447 2310 1727 2340 0317 1604 1124 1117 1623 4011 1640 2320 0103 0540 0617 2240 1716 0540 2125 0104 2201 1624 4017 1640 0501 0310 4023 1104 0547 5457 5440 4063 3054 4717 0640 2410 0540 0516 2405 2220 2211 2305 4011 1640 2410 0540 1511 0404 1405 4017 0640 2410 0540 2303 0116 5640 2410 0540 2303 0116 4751 LDX 1242,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #20031+2 EXTERN #RENDO TRAP3 #RENDO LDX 1243,0 #20031, JA .+0177 5063 3054 4711 2340 0317 0405 0440 1116 4024 1005 4006 1722 1540 4213 0223 4254 4027 1005 2205 4013 4011 2340 2410 0540 1625 1502 0522 4754 5754 4040 6330 5447 1706 4013 1411 1607 1716 2354 4002 4011 2340 2410 0540 1625 1502 0522 4017 0640 2324 0122 0201 2305 2354 4001 1604 4023 4011 2347 5457 5440 4063 3054 4724 1005 4016 2515 0205 2240 1706 4023 2401 2223 5647 5457 5754 4040 6130 5447 0317 1515 0116 0440 6340 7540 2010 0123 0522 4003 1716 2422 1714 4754 5754 4040 6330 5447 0114 1417 2723 4031 1725 4024 1740 0405 2324 2217 3140 2410 0540 1314 1116 0717 1623 4002 3140 1011 2424 1116 0740 2410 0515 4027 1124 1047 5100 LDX 1244,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #20040+2 EXTERN #RENDO TRAP3 #RENDO LDX 1245,0 #20040, JA .+0213 5063 3054 4723 2511 2401 0214 3140 1401 2207 0540 1625 1502 0522 2340 1706 4005 1605 2207 3140 2516 1124 2340 2417 4004 0520 1405 2405 4040 4024 1005 1122 4754 5754 4040 6330 5447 2310 1105 1404 4020 1727 0522 5640 4013 0505 2040 1116 4015 1116 0440 2410 0124 4027 1005 1640 3117 2540 2310 1717 2440 0124 4024 1005 1556 4754 5754 4040 6330 5447 2410 0531 4007 1716 1601 4023 1017 1724 4001 2440 3117 2554 4024 1717 4147 5457 5754 4040 6130 5447 0317 1515 0116 0440 6440 7540 2010 1724 1716 4024 1722 2005 0417 4003 1716 2422 1714 4754 5754 4040 6330 5447 0317 2522 2305 4011 2340 2410 0540 2301 1505 4001 2340 2523 0504 4011 1640 2701 2220 4005 1607 1116 0540 0317 1624 2217 1447 5100 LDX 1246,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #20041+2 EXTERN #RENDO TRAP3 #RENDO LDX 1247,0 #20041, JA .+0210 5063 3054 4711 0640 3117 2540 1011 2440 2410 0540 1314 1116 0717 1654 4010 0540 1123 4004 0523 2422 1731 0504 4001 1604 4003 0116 1617 2447 5440 4057 5463 3054 4706 1122 0540 0201 0313 4001 2440 3117 2556 4040 1106 4031 1725 4015 1123 2354 4031 1725 4001 2205 4023 2502 1205 0324 4024 1740 1011 2347 5440 4057 5463 3054 4720 1001 2305 2240 0611 2205 5647 5457 5754 4040 6330 5447 1617 2405 7240 4024 1005 4014 1102 2201 2231 4003 1715 2025 2405 2240 5003 1715 1501 1604 4067 5140 1001 2340 0116 4017 2024 1117 1647 5457 5440 4063 3054 4724 1740 0317 1520 2524 0540 2417 2220 0504 1740 2422 0112 0503 2417 2231 4006 1722 4031 1725 4050 1720 2411 1716 4062 5156 4754 5751 LDX 1250,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #20050+2 EXTERN #RENDO TRAP3 #RENDO LDX 1251,0 #20050, JA .+0240 5061 3054 4703 1715 1501 1604 4065 4075 4023 1011 0514 0440 0317 1624 2217 1447 5457 5440 4063 3054 4704 0506 1116 0523 4016 2515 0205 2240 1706 4005 1605 2207 3140 2516 1124 2340 2417 4002 0540 0123 2311 0716 0504 4024 1740 2310 1105 1404 2356 4754 4040 5754 6330 5447 0516 0522 0731 4011 2340 2401 1305 1640 0622 1715 4024 1724 0114 4023 1011 2047 4723 4005 1605 2207 3156 4754 5754 4040 6330 5447 1617 2405 7240 4024 1724 0114 4005 1605 2207 3140 1116 0314 2504 0523 4023 1011 0514 0440 0516 0522 0731 5647 5457 5754 4040 6130 5447 0317 1515 0116 0440 6640 7540 0401 1501 0705 4003 1716 2422 1714 4022 0520 1722 2447 5457 5440 4063 3054 4707 1126 0523 4023 2401 2405 4017 0640 2205 2001 1122 2340 1706 4001 1414 4004 0526 1103 0523 5640 0140 2324 0124 0540 1706 4022 0520 0111 2247 5100 LDX 1252,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #20051+2 EXTERN #RENDO TRAP3 #RENDO LDX 1253,0 #20051, JA .+0130 5057 5463 3054 4714 0523 2340 2410 0116 4032 0522 1740 2310 1727 2340 2410 0124 4024 1005 4004 0526 1103 0540 1123 4047 5457 5440 4063 3054 4724 0515 2017 2201 1414 3140 0401 1501 0705 0456 4754 5757 5440 4061 3054 4703 1715 1501 1604 4067 4075 4014 1102 2201 2231 4003 1715 2025 2405 2247 5457 5440 4063 3054 4724 1005 4014 1102 2201 2231 4003 1715 2025 2405 2240 0317 1624 0111 1623 4024 1022 0505 4017 2024 1117 1623 7247 5100 LDX 1254,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #20060+2 EXTERN #RENDO TRAP3 #RENDO LDX 1255,0 #20060, JA .+0206 5065 3054 4717 2024 1117 1640 6040 7540 0325 1525 1401 2411 2605 4007 0114 0103 2411 0340 2205 0317 2204 4754 5754 4040 6730 5447 2710 1103 1040 2310 1727 2340 0317 1520 2524 0522 4015 0515 1722 3140 1706 4024 1005 4022 0523 2514 2423 4754 5754 4040 6730 5447 1706 4001 1414 4020 2205 2611 1725 2340 1417 1607 4022 0116 0705 4023 0516 2317 2240 2303 0116 2356 4754 5754 4040 6530 5447 1720 2411 1716 4061 4075 4023 2401 2425 2340 2205 2017 2224 4754 5754 4040 6730 5447 2710 1123 1040 2310 1727 2340 1625 1502 0522 4017 0640 1314 1116 0717 1623 5440 2324 0122 0201 2305 2354 4754 5754 4040 6730 5447 0116 0440 2324 0122 0401 2405 2340 1405 0624 5647 5457 5100 LDX 1256,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #20061+2 EXTERN #RENDO TRAP3 #RENDO LDX 1257,0 #20061, JA .+0222 5065 3054 4717 2024 1117 1640 6240 7540 2010 1724 1716 4024 1722 2005 0417 4004 0124 0147 5457 5440 4067 3054 4707 1126 0523 4024 2201 1205 0324 1722 3140 0116 0440 0411 2324 0116 0305 4002 0524 2705 0516 4024 1005 4754 5754 4040 6730 5447 0516 2405 2220 2211 2305 4001 1604 4001 1414 4013 1411 1607 1716 2340 1116 4031 1725 2240 2125 0104 2201 1624 4754 5754 4040 6730 5447 1106 4031 1725 4027 1123 1040 2417 4025 2305 4024 1005 4003 1715 2025 2405 2247 4723 4003 0114 0325 1401 2417 2247 5457 5440 4067 3054 4724 1740 0111 0440 1601 2611 0701 2411 1716 4017 2240 0417 0313 1116 0740 2410 0516 4005 1624 0522 4754 5754 4040 6730 5447 0317 1722 0411 1601 2405 2340 5021 2501 0422 0116 2440 1722 4023 0503 2417 2251 4751 LDX 1260,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #20062+2 EXTERN #RENDO TRAP3 #RENDO LDX 1261,0 #20062, JA .+0053 5067 3054 4717 0640 2310 1120 4001 1604 4024 0122 0705 2440 5540 1116 4023 1725 2203 0554 0405 2324 1116 0124 1117 1647 5457 5440 4067 3054 4706 1722 1501 2440 5540 0507 5656 5623 5423 5424 5424 4754 5751 LDX 1262,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #20070+2 EXTERN #RENDO TRAP3 #RENDO LDX 1263,0 #20070, JA .+0142 4050 6130 5447 0317 1515 0116 0440 7040 7540 0205 0711 1640 1605 2740 0317 1624 0523 2447 5457 5440 4063 3054 4723 2401 2224 2340 2022 1707 2201 1540 1726 0522 4001 0701 1116 4027 1124 1040 0114 1440 1605 2740 0401 2401 5647 5457 5440 4063 3054 4725 2305 0440 2417 4003 2205 0124 0540 1517 2205 4003 1001 1414 0516 0711 1607 4023 0524 2520 4055 4011 0572 4015 1722 0547 5457 5440 4063 3054 4713 1411 1607 1716 2340 0116 0440 0605 2705 2240 2324 0122 0201 2305 2341 4754 5757 5751 LDX 1264,0 JA #100 LDX 1265,0 EXTERN #NE EXTERN #EXIT JSR #EXIT #DOTMP, ORG .+0011